home *** CD-ROM | disk | FTP | other *** search
- VERSION 5.00
- Object = "{DF5E40D4-CC15-4039-861D-5D824D450C09}#1.1#0"; "ciaXPFrame.ocx"
- Object = "{083C8784-F106-4CC2-9930-876218A6B74C}#1.1#0"; "ciaXPButton.ocx"
- Object = "{67DAD3BE-84EC-498E-BBE8-CE32814928FC}#1.1#0"; "ciaXPImage.ocx"
- Object = "{E0C48EF3-1948-4B0F-B769-0D64B1F2AD6B}#1.0#0"; "ciaXPStdCombo.ocx"
- Object = "{BC211913-B646-4281-A764-B6E2D473D3F6.ocx}#1.1#0"; "ciaXPSelectionControls.ocx"
- Object = "{C4324ECA-1034-493B-A009-DEADAA741E1E}#1.1#0"; "ciaXPText.ocx"
- Object = "{877747E0-B142-4CC6-971E-EA920B0A0863}#1.0#0"; "ciaXPDatePicker.ocx"
- Object = "{57B9083D-1BD5-443C-8E9D-82F2DA096EC3}#1.0#0"; "ciaSlider.ocx"
- Object = "{E2997A80-62AE-41EB-876A-DBD031A045C6}#1.0#0"; "ciaTabControl.ocx"
- Begin VB.Form frmSystem
- AutoRedraw = -1 'True
- Caption = "Form1"
- ClientHeight = 6795
- ClientLeft = 60
- ClientTop = 450
- ClientWidth = 6105
- LinkTopic = "Form1"
- ScaleHeight = 6795
- ScaleWidth = 6105
- StartUpPosition = 3 'Windows Default
- Begin ciaXPButton.XPButton cmdOK
- Default = -1 'True
- Height = 330
- Left = 2535
- TabIndex = 0
- Top = 6315
- Width = 1110
- _ExtentX = 1958
- _ExtentY = 582
- Caption = "OK"
- OriginalPicSizeW= 0
- OriginalPicSizeH= 0
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- MouseIcon = "frmSystem.frx":0000
- LicValid = -1 'True
- End
- Begin ciaXPButton.XPButton cmdCancel
- Height = 330
- Left = 3690
- TabIndex = 2
- Top = 6315
- Width = 1110
- _ExtentX = 1958
- _ExtentY = 582
- Caption = "Cancel"
- OriginalPicSizeW= 0
- OriginalPicSizeH= 0
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- MouseIcon = "frmSystem.frx":031A
- LicValid = -1 'True
- End
- Begin ciaXPButton.XPButton cmdApply
- Height = 330
- Left = 4845
- TabIndex = 3
- Top = 6315
- Width = 1110
- _ExtentX = 1958
- _ExtentY = 582
- Caption = "Apply"
- OriginalPicSizeW= 0
- OriginalPicSizeH= 0
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- MouseIcon = "frmSystem.frx":0634
- LicValid = -1 'True
- End
- Begin ciaXPImage.XPImage XPImage8
- Height = 480
- Left = 6465
- TabIndex = 15
- Top = 6180
- Width = 465
- _ExtentX = 820
- _ExtentY = 847
- BorderStyle = 0
- Appearance = 0
- AutoSize = -1 'True
- Picture = "frmSystem.frx":094E
- BackStyle = 0
- MaskColor = 16711935
- ImageHeight = 480
- ImageWidth = 465
- LicValid = -1 'True
- End
- Begin ciaXPTabControl.ciaTabControl oTab
- Height = 6180
- Left = 60
- TabIndex = 1
- Top = 45
- Width = 6000
- _ExtentX = 10583
- _ExtentY = 10901
- Tabs = 7
- TabCaption0 = "General"
- TabCaption1 = "Computer Name"
- TabCaption2 = "Hardware"
- TabCaption3 = "Advanced"
- TabCaption4 = "Internet Files"
- TabCaption5 = "Automatic Updates"
- TabCaption6 = "Remote"
- TabsPerRow = 4
- CurrentTab = 0
- CaptionAlignment= 1
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- HotTracking = -1 'True
- MousePointer = 0
- LicValid = -1 'True
- Begin ciaXPFrame.XPFrame frameComputerName
- Height = 4260
- Left = 90
- TabIndex = 90
- Top = 690
- Visible = 0 'False
- Width = 5805
- _ExtentX = 10239
- _ExtentY = 7514
- BorderStyle = 0
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- BackStyle = 1
- Radius = 20
- LicValid = -1 'True
- Begin ciaXPButton.XPButton cmdGen
- Height = 345
- Index = 6
- Left = 4095
- TabIndex = 91
- Top = 3000
- Width = 1200
- _ExtentX = 2117
- _ExtentY = 609
- Caption = "Network ID"
- OriginalPicSizeW= 0
- OriginalPicSizeH= 0
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- MouseIcon = "frmSystem.frx":15A0
- LicValid = -1 'True
- End
- Begin ciaXPButton.XPButton cmdGen
- Height = 345
- Index = 5
- Left = 4095
- TabIndex = 92
- Top = 3735
- Width = 1200
- _ExtentX = 2117
- _ExtentY = 609
- Caption = "Change..."
- OriginalPicSizeW= 0
- OriginalPicSizeH= 0
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- MouseIcon = "frmSystem.frx":18BA
- LicValid = -1 'True
- End
- Begin ciaXPImage.XPImage XPImage3
- Height = 480
- Left = 270
- TabIndex = 93
- Top = 360
- Width = 540
- _ExtentX = 953
- _ExtentY = 847
- BorderStyle = 0
- Appearance = 0
- AutoSize = -1 'True
- Picture = "frmSystem.frx":1BD4
- BackStyle = 0
- MaskColor = 16711935
- ImageHeight = 480
- ImageWidth = 540
- LicValid = -1 'True
- End
- Begin ciaXPText.XPText XPText1
- Height = 255
- Left = 1830
- TabIndex = 94
- Top = 1065
- Width = 3255
- _ExtentX = 6376
- _ExtentY = 450
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- BorderColor = -2147483645
- LicValid = -1 'True
- End
- Begin VB.Label Label10
- BackStyle = 0 'Transparent
- Caption = "Windows uses the following information to identify your computer on the network."
- Height = 480
- Left = 915
- TabIndex = 103
- Top = 420
- Width = 4395
- WordWrap = -1 'True
- End
- Begin VB.Label Label8
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "Computer description:"
- Height = 195
- Index = 14
- Left = 270
- TabIndex = 102
- Top = 1080
- Width = 1530
- End
- Begin VB.Label Label8
- BackStyle = 0 'Transparent
- Caption = "For example: ""Kitchen Computer"" or ""Mary's Computer""."
- Height = 480
- Index = 15
- Left = 2025
- TabIndex = 101
- Top = 1410
- Width = 2595
- WordWrap = -1 'True
- End
- Begin VB.Label Label8
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "Full computer name:"
- Height = 195
- Index = 16
- Left = 270
- TabIndex = 100
- Top = 2115
- Width = 1425
- End
- Begin VB.Label Label8
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "CIA001"
- Height = 195
- Index = 17
- Left = 2025
- TabIndex = 99
- Top = 2145
- Width = 525
- End
- Begin VB.Label Label8
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "Workgroup:"
- Height = 195
- Index = 18
- Left = 270
- TabIndex = 98
- Top = 2520
- Width = 840
- End
- Begin VB.Label Label8
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "CIANet"
- Height = 195
- Index = 19
- Left = 2025
- TabIndex = 97
- Top = 2550
- Width = 510
- End
- Begin VB.Label Label8
- BackStyle = 0 'Transparent
- Caption = "To use the Network Identification Wizard to join a domain and create a local user account, click Network ID."
- Height = 780
- Index = 20
- Left = 270
- TabIndex = 96
- Top = 2940
- Width = 3720
- WordWrap = -1 'True
- End
- Begin VB.Label Label8
- BackStyle = 0 'Transparent
- Caption = "To rename this computer or join a domain, click Change."
- Height = 480
- Index = 21
- Left = 270
- TabIndex = 95
- Top = 3735
- Width = 3840
- WordWrap = -1 'True
- End
- End
- Begin ciaXPFrame.XPFrame frameInternetFiles
- Height = 3900
- Left = 60
- TabIndex = 64
- Top = 750
- Visible = 0 'False
- Width = 5805
- _ExtentX = 10239
- _ExtentY = 6879
- Caption = "Internet Files"
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ForeColor = 12582912
- BackStyle = 1
- Radius = 15
- LicValid = -1 'True
- Begin ciaXPButton.XPButton cmdGen
- Height = 345
- Index = 10
- Left = 3195
- TabIndex = 65
- Top = 3345
- Width = 2280
- _ExtentX = 4022
- _ExtentY = 609
- Caption = "Purge Historical Files Now!"
- OriginalPicSizeW= 0
- OriginalPicSizeH= 0
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- MouseIcon = "frmSystem.frx":29A6
- LicValid = -1 'True
- End
- Begin ciaSliderControl.ciaHSlider ciaHSlider1
- Height = 180
- Left = 2010
- Top = 1395
- Width = 1905
- _ExtentX = 3360
- _ExtentY = 318
- SliderIcon = "frmSystem.frx":2CC0
- RailPicture = "frmSystem.frx":3042
- RailStyle = 99
- ShowTickMarks = 0 'False
- ShowIncrementArrows= 0 'False
- ExtentMax = 30
- LicValid = -1 'True
- End
- Begin ciaXPSelectionControls.XPCheckBox XPCheckBox6
- Height = 315
- Left = 255
- TabIndex = 66
- Top = 420
- Width = 2310
- _ExtentX = 4075
- _ExtentY = 556
- Caption = "Purge Internet History Files"
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Style = 1
- Value = 1
- LicValid = -1 'True
- End
- Begin ciaXPSelectionControls.XPOption XPOption1
- Height = 360
- Left = 660
- TabIndex = 67
- Top = 885
- Width = 3480
- _ExtentX = 6138
- _ExtentY = 635
- Caption = "Automatically purge files every so many days."
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Style = 1
- GroupID = 1
- LicValid = -1 'True
- End
- Begin ciaXPSelectionControls.XPOption XPOption2
- Height = 465
- Left = 660
- TabIndex = 68
- Top = 1755
- Width = 3480
- _ExtentX = 6138
- _ExtentY = 820
- Caption = "Automatically purge files on a scheduled date that I specify."
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Style = 1
- GroupID = 1
- LicValid = -1 'True
- End
- Begin ciaXPDatePicker.XPDatePicker XPDatePicker2
- Height = 315
- Left = 900
- TabIndex = 89
- Top = 2220
- Width = 1755
- _ExtentX = 3096
- _ExtentY = 556
- MouseIcon = "frmSystem.frx":4204
- CalendarDayBorder= -1 'True
- CalendarDayBorderColor= -2147483646
- CalendarMonthBorderColor= 8421504
- LicValid = -1 'True
- End
- Begin VB.Label Label19
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "Remote Desktop"
- BeginProperty Font
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = -1 'True
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ForeColor = &H00C00000&
- Height = 195
- Left = 1620
- TabIndex = 71
- Top = 2865
- Width = 1200
- End
- Begin VB.Label Label20
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "Learn more about"
- Height = 195
- Left = 300
- TabIndex = 70
- Top = 2865
- Width = 1245
- End
- Begin VB.Label Label22
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "days:"
- Height = 195
- Left = 1575
- TabIndex = 69
- Top = 1380
- Width = 375
- End
- End
- Begin ciaXPFrame.XPFrame frameGeneral
- Height = 5250
- Left = 255
- TabIndex = 35
- Top = 735
- Width = 5415
- _ExtentX = 9551
- _ExtentY = 9260
- BorderStyle = 0
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- BackStyle = 1
- Radius = 20
- LicValid = -1 'True
- Begin ciaXPImage.XPImage XPImage2
- Height = 1485
- Left = 60
- TabIndex = 36
- Top = 450
- Width = 1665
- _ExtentX = 2937
- _ExtentY = 2619
- BorderStyle = 0
- Appearance = 0
- AutoSize = -1 'True
- Picture = "frmSystem.frx":4220
- BackStyle = 0
- MaskColor = 16711935
- ImageHeight = 1485
- ImageWidth = 1665
- LicValid = -1 'True
- End
- Begin VB.Label Label8
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "XP ListBox"
- ForeColor = &H00000000&
- Height = 195
- Index = 38
- Left = 4110
- TabIndex = 87
- Top = 5010
- Width = 765
- End
- Begin VB.Label Label8
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "XP Panel"
- ForeColor = &H00000000&
- Height = 195
- Index = 37
- Left = 4110
- TabIndex = 86
- Top = 4785
- Width = 660
- End
- Begin VB.Label Label8
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "XP Progress Wait"
- ForeColor = &H00000000&
- Height = 195
- Index = 36
- Left = 4110
- TabIndex = 85
- Top = 4575
- Width = 1245
- End
- Begin VB.Label Label8
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "XP Progress Bar"
- ForeColor = &H00000000&
- Height = 195
- Index = 35
- Left = 4110
- TabIndex = 84
- Top = 4365
- Width = 1155
- End
- Begin VB.Label Label8
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "System:"
- Height = 195
- Index = 0
- Left = 1955
- TabIndex = 63
- Top = 90
- Width = 555
- End
- Begin VB.Label Label8
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "Microsoft Windows XP"
- Height = 195
- Index = 1
- Left = 2180
- TabIndex = 62
- Top = 330
- Width = 1605
- End
- Begin VB.Label Label8
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "Professional"
- Height = 195
- Index = 2
- Left = 2180
- TabIndex = 61
- Top = 555
- Width = 855
- End
- Begin VB.Label Label8
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "Version 2002"
- Height = 195
- Index = 3
- Left = 2180
- TabIndex = 60
- Top = 795
- Width = 930
- End
- Begin VB.Label Label8
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "Service Pack 1"
- Height = 195
- Index = 4
- Left = 2180
- TabIndex = 59
- Top = 1005
- Width = 1095
- End
- Begin VB.Label Label8
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "Registered to:"
- Height = 195
- Index = 5
- Left = 1950
- TabIndex = 58
- Top = 1260
- Width = 990
- End
- Begin VB.Label Label8
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "Engineering"
- Height = 195
- Index = 6
- Left = 2175
- TabIndex = 57
- Top = 1500
- Width = 840
- End
- Begin VB.Label Label8
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "CIA, The Company"
- Height = 195
- Index = 7
- Left = 2175
- TabIndex = 56
- Top = 1740
- Width = 1335
- End
- Begin VB.Label Label8
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "38447-112-938847554-83775"
- Height = 195
- Index = 8
- Left = 2175
- TabIndex = 55
- Top = 1980
- Width = 2115
- End
- Begin VB.Label Label8
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "Computer:"
- Height = 195
- Index = 9
- Left = 1950
- TabIndex = 54
- Top = 2235
- Width = 720
- End
- Begin VB.Label Label8
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "Intel (R)"
- Height = 195
- Index = 10
- Left = 2175
- TabIndex = 53
- Top = 2475
- Width = 555
- End
- Begin VB.Label Label8
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "Pentium(R) 4 CPU 1700MHZ"
- Height = 195
- Index = 11
- Left = 2175
- TabIndex = 52
- Top = 2715
- Width = 2055
- End
- Begin VB.Label Label8
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "1.69 GHz"
- Height = 195
- Index = 12
- Left = 2175
- TabIndex = 51
- Top = 2955
- Width = 675
- End
- Begin VB.Label Label8
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "512 RAM"
- Height = 195
- Index = 13
- Left = 2175
- TabIndex = 50
- Top = 3180
- Width = 675
- End
- Begin VB.Label Label8
- BackStyle = 0 'Transparent
- Caption = $"frmSystem.frx":C462
- Height = 435
- Index = 22
- Left = 255
- TabIndex = 49
- Top = 3675
- Width = 5025
- WordWrap = -1 'True
- End
- Begin VB.Label Label8
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "XP Tab"
- ForeColor = &H00000000&
- Height = 195
- Index = 23
- Left = 15
- TabIndex = 48
- Top = 4380
- Width = 540
- End
- Begin VB.Label Label8
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "XP Frame"
- ForeColor = &H00000000&
- Height = 195
- Index = 24
- Left = 15
- TabIndex = 47
- Top = 4590
- Width = 690
- End
- Begin VB.Label Label8
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "XP Command Button"
- ForeColor = &H00000000&
- Height = 195
- Index = 25
- Left = 15
- TabIndex = 46
- Top = 4800
- Width = 1470
- End
- Begin VB.Label Label8
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "XP ComboBox"
- ForeColor = &H00000000&
- Height = 195
- Index = 26
- Left = 15
- TabIndex = 45
- Top = 5025
- Width = 1020
- End
- Begin VB.Label Label8
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "XP TextBox"
- ForeColor = &H00000000&
- Height = 195
- Index = 27
- Left = 1605
- TabIndex = 44
- Top = 4380
- Width = 840
- End
- Begin VB.Label Label8
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "XP Image"
- ForeColor = &H00000000&
- Height = 195
- Index = 28
- Left = 1605
- TabIndex = 43
- Top = 4590
- Width = 690
- End
- Begin VB.Label Label8
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "XP Slider"
- ForeColor = &H00000000&
- Height = 195
- Index = 29
- Left = 1605
- TabIndex = 42
- Top = 4800
- Width = 645
- End
- Begin VB.Label Label8
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "XP Date Picker"
- ForeColor = &H00000000&
- Height = 195
- Index = 30
- Left = 1605
- TabIndex = 41
- Top = 5025
- Width = 1095
- End
- Begin VB.Label Label8
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "XP Check Box"
- ForeColor = &H00000000&
- Height = 195
- Index = 31
- Left = 2805
- TabIndex = 40
- Top = 4365
- Width = 1035
- End
- Begin VB.Label Label8
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "XP Option Button"
- ForeColor = &H00000000&
- Height = 195
- Index = 32
- Left = 2805
- TabIndex = 39
- Top = 4575
- Width = 1230
- End
- Begin VB.Label Label8
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "XP Spin"
- ForeColor = &H00000000&
- Height = 195
- Index = 33
- Left = 2805
- TabIndex = 38
- Top = 4785
- Width = 570
- End
- Begin VB.Label Label8
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "XP ListBox"
- ForeColor = &H00000000&
- Height = 195
- Index = 34
- Left = 2805
- TabIndex = 37
- Top = 5010
- Width = 765
- End
- End
- Begin ciaXPFrame.XPFrame frameUpdates
- Height = 3450
- Index = 1
- Left = 90
- TabIndex = 20
- Top = 2610
- Visible = 0 'False
- Width = 5805
- _ExtentX = 10239
- _ExtentY = 6085
- Caption = "Settings"
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ForeColor = 12582912
- BackStyle = 1
- Radius = 20
- LicValid = -1 'True
- Begin ciaXPSelectionControls.XPOption XPOption4
- Height = 525
- Left = 300
- TabIndex = 21
- Top = 300
- Width = 4620
- _ExtentX = 8149
- _ExtentY = 926
- Caption = "Notify me before dowloading any updates and notify me again before installing them on my computer."
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Style = 1
- GroupID = 1
- LicValid = -1 'True
- End
- Begin ciaXPSelectionControls.XPOption XPOption5
- Height = 465
- Left = 300
- TabIndex = 22
- Top = 975
- Width = 4290
- _ExtentX = 7567
- _ExtentY = 820
- Caption = "Download the updates automatically and notify me when they are ready to be installed."
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Style = 1
- Value = -1 'True
- GroupID = 1
- LicValid = -1 'True
- End
- Begin ciaXPSelectionControls.XPOption XPOption6
- Height = 570
- Left = 300
- TabIndex = 23
- Top = 1575
- Width = 4515
- _ExtentX = 7964
- _ExtentY = 1005
- Caption = "Automatically download the updates, and install them on the schedule that I specify."
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Style = 1
- GroupID = 1
- LicValid = -1 'True
- End
- Begin ciaXPStdCombo.ciaXPStdComboBox ciaXPComboBox1
- Height = 285
- Left = 300
- TabIndex = 24
- Top = 2205
- Width = 2175
- _ExtentX = 3836
- _ExtentY = 503
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- MousePointer = 0
- MouseIcon = "frmSystem.frx":C4F0
- Enabled = 0 'False
- BackColor = 16053492
- LicValid = -1 'True
- End
- Begin ciaXPStdCombo.ciaXPStdComboBox ciaXPComboBox2
- Height = 285
- Left = 2850
- TabIndex = 25
- Top = 2205
- Width = 1590
- _ExtentX = 2805
- _ExtentY = 503
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- MousePointer = 0
- MouseIcon = "frmSystem.frx":C50C
- Enabled = 0 'False
- BackColor = 16053492
- LicValid = -1 'True
- End
- Begin ciaXPButton.XPButton cmdGen
- Height = 345
- Index = 9
- Left = 3555
- TabIndex = 26
- Top = 2955
- Width = 1935
- _ExtentX = 3413
- _ExtentY = 609
- Caption = "Decline Updates"
- OriginalPicSizeW= 0
- OriginalPicSizeH= 0
- Enabled = 0 'False
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- MouseIcon = "frmSystem.frx":C528
- LicValid = -1 'True
- End
- Begin VB.Label Label5
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "at"
- Enabled = 0 'False
- Height = 195
- Left = 2610
- TabIndex = 29
- Top = 2250
- Width = 135
- End
- Begin VB.Label Label6
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "Learn more about"
- Height = 195
- Left = 300
- TabIndex = 28
- Top = 2655
- Width = 1245
- End
- Begin VB.Label Label18
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "scheduled installing"
- BeginProperty Font
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = -1 'True
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ForeColor = &H00C00000&
- Height = 195
- Left = 1605
- TabIndex = 27
- Top = 2655
- Width = 1380
- End
- End
- Begin ciaXPFrame.XPFrame frameHardware
- Height = 1800
- Index = 2
- Left = 90
- TabIndex = 11
- Top = 3975
- Visible = 0 'False
- Width = 5800
- _ExtentX = 10239
- _ExtentY = 3175
- Caption = "Hardware Profiles"
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ForeColor = 12582912
- BackStyle = 1
- Radius = 15
- LicValid = -1 'True
- Begin ciaXPButton.XPButton cmdGen
- Height = 345
- Index = 0
- Left = 3555
- TabIndex = 12
- Top = 1305
- Width = 1935
- _ExtentX = 3413
- _ExtentY = 609
- Caption = "Device Manager"
- OriginalPicSizeW= 0
- OriginalPicSizeH= 0
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- MouseIcon = "frmSystem.frx":C842
- LicValid = -1 'True
- End
- Begin ciaXPButton.XPButton cmdGen
- Height = 345
- Index = 4
- Left = 1485
- TabIndex = 13
- Top = 1305
- Width = 1935
- _ExtentX = 3413
- _ExtentY = 609
- Caption = "Driver Signing"
- OriginalPicSizeW= 0
- OriginalPicSizeH= 0
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- MouseIcon = "frmSystem.frx":CB5C
- LicValid = -1 'True
- End
- Begin ciaXPImage.XPImage XPImage4
- Height = 435
- Left = 105
- TabIndex = 18
- Top = 480
- Width = 585
- _ExtentX = 1032
- _ExtentY = 767
- BorderStyle = 0
- Appearance = 0
- AutoSize = -1 'True
- Picture = "frmSystem.frx":CE76
- BackStyle = 0
- MaskColor = 16711935
- ImageHeight = 435
- ImageWidth = 585
- LicValid = -1 'True
- End
- Begin VB.Label Label3
- BackStyle = 0 'Transparent
- Caption = $"frmSystem.frx":DC60
- Height = 600
- Left = 795
- TabIndex = 14
- Top = 450
- Width = 4395
- WordWrap = -1 'True
- End
- End
- Begin ciaXPFrame.XPFrame frameUpdates
- Height = 1650
- Index = 0
- Left = 90
- TabIndex = 30
- Top = 825
- Visible = 0 'False
- Width = 5805
- _ExtentX = 10239
- _ExtentY = 2910
- BorderStyle = 0
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- BackStyle = 1
- Radius = 20
- LicValid = -1 'True
- Begin ciaXPSelectionControls.XPCheckBox XPCheckBox2
- Height = 765
- Left = 135
- TabIndex = 31
- Top = 600
- Width = 5130
- _ExtentX = 9049
- _ExtentY = 1349
- Caption = $"frmSystem.frx":DCF1
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Style = 1
- Value = 1
- LicValid = -1 'True
- End
- Begin ciaXPImage.XPImage XPImage1
- Height = 480
- Left = 75
- TabIndex = 32
- Top = 135
- Width = 480
- _ExtentX = 847
- _ExtentY = 847
- BorderStyle = 0
- Appearance = 0
- AutoSize = -1 'True
- Picture = "frmSystem.frx":DD87
- BackStyle = 0
- MaskColor = 16711935
- ImageHeight = 480
- ImageWidth = 480
- LicValid = -1 'True
- End
- Begin VB.Label Label4
- BackStyle = 0 'Transparent
- Caption = "Windows can find the updates you need and deliver them directly to your computer."
- Height = 480
- Left = 810
- TabIndex = 34
- Top = 150
- Width = 4395
- WordWrap = -1 'True
- End
- Begin VB.Label Label7
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "Learn more about automatic updates"
- Height = 195
- Left = 135
- TabIndex = 33
- Top = 1425
- Width = 2595
- End
- End
- Begin ciaXPFrame.XPFrame frameHardware
- Height = 1800
- Index = 1
- Left = 90
- TabIndex = 7
- Top = 2070
- Visible = 0 'False
- Width = 5800
- _ExtentX = 10239
- _ExtentY = 3175
- Caption = "Device Manager"
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ForeColor = 12582912
- BackStyle = 1
- Radius = 15
- LicValid = -1 'True
- Begin ciaXPButton.XPButton cmdGen
- Height = 345
- Index = 2
- Left = 3555
- TabIndex = 8
- Top = 1305
- Width = 1935
- _ExtentX = 3413
- _ExtentY = 609
- Caption = "Device Manager"
- OriginalPicSizeW= 0
- OriginalPicSizeH= 0
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- MouseIcon = "frmSystem.frx":E9D9
- LicValid = -1 'True
- End
- Begin ciaXPButton.XPButton cmdGen
- Height = 345
- Index = 3
- Left = 1485
- TabIndex = 9
- Top = 1305
- Width = 1935
- _ExtentX = 3413
- _ExtentY = 609
- Caption = "Driver Signing"
- OriginalPicSizeW= 0
- OriginalPicSizeH= 0
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- MouseIcon = "frmSystem.frx":ECF3
- LicValid = -1 'True
- End
- Begin ciaXPImage.XPImage XPImage5
- Height = 450
- Left = 105
- TabIndex = 17
- Top = 405
- Width = 525
- _ExtentX = 926
- _ExtentY = 794
- BorderStyle = 0
- Appearance = 0
- AutoSize = -1 'True
- Picture = "frmSystem.frx":F00D
- BackStyle = 0
- MaskColor = 16711935
- ImageHeight = 450
- ImageWidth = 525
- LicValid = -1 'True
- End
- Begin VB.Label Label2
- BackStyle = 0 'Transparent
- Caption = $"frmSystem.frx":FD07
- Height = 600
- Left = 795
- TabIndex = 10
- Top = 450
- Width = 4395
- WordWrap = -1 'True
- End
- End
- Begin ciaXPFrame.XPFrame frameHardware
- Height = 1215
- Index = 0
- Left = 90
- TabIndex = 4
- Top = 750
- Visible = 0 'False
- Width = 5800
- _ExtentX = 10239
- _ExtentY = 2143
- Caption = "Add Hardware Wizard"
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ForeColor = 12582912
- BackStyle = 1
- Radius = 15
- LicValid = -1 'True
- Begin ciaXPButton.XPButton cmdGen
- Height = 345
- Index = 1
- Left = 3555
- TabIndex = 5
- Top = 720
- Width = 1935
- _ExtentX = 3413
- _ExtentY = 609
- Caption = "Add Hardware Wizard"
- OriginalPicSizeW= 0
- OriginalPicSizeH= 0
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- MouseIcon = "frmSystem.frx":FD98
- LicValid = -1 'True
- End
- Begin ciaXPImage.XPImage XPImage6
- Height = 495
- Left = 105
- TabIndex = 16
- Top = 315
- Width = 555
- _ExtentX = 979
- _ExtentY = 873
- BorderStyle = 0
- Appearance = 0
- AutoSize = -1 'True
- Picture = "frmSystem.frx":100B2
- BackStyle = 0
- MaskColor = 16711935
- ImageHeight = 495
- ImageWidth = 555
- LicValid = -1 'True
- End
- Begin VB.Label Label1
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "The Add Hardware Wizard helps you install hardware."
- Height = 195
- Left = 690
- TabIndex = 6
- Top = 405
- Width = 3795
- End
- End
- Begin ciaXPFrame.XPFrame frameRemote
- Height = 2415
- Index = 0
- Left = 45
- TabIndex = 72
- Top = 2655
- Visible = 0 'False
- Width = 5805
- _ExtentX = 10239
- _ExtentY = 4260
- Caption = "Remote Desktop"
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ForeColor = 12582912
- BackStyle = 1
- Radius = 15
- LicValid = -1 'True
- Begin ciaXPButton.XPButton cmdGen
- Height = 345
- Index = 7
- Left = 3390
- TabIndex = 73
- Top = 1890
- Width = 2160
- _ExtentX = 3810
- _ExtentY = 609
- Caption = "Select Remote Users"
- OriginalPicSizeW= 0
- OriginalPicSizeH= 0
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- MouseIcon = "frmSystem.frx":10F74
- LicValid = -1 'True
- End
- Begin ciaXPSelectionControls.XPCheckBox XPCheckBox4
- Height = 315
- Left = 210
- TabIndex = 74
- Top = 300
- Width = 5130
- _ExtentX = 9049
- _ExtentY = 556
- Caption = "Allow users to connect remotely to this computer"
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Style = 1
- LicValid = -1 'True
- End
- Begin VB.Label Label11
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "Full computer name:"
- Height = 195
- Left = 450
- TabIndex = 78
- Top = 720
- Width = 1425
- End
- Begin VB.Label Label13
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "CIA001"
- Height = 195
- Left = 450
- TabIndex = 77
- Top = 945
- Width = 525
- End
- Begin VB.Label Label14
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "Learn more about"
- Height = 195
- Left = 450
- TabIndex = 76
- Top = 1365
- Width = 1245
- End
- Begin VB.Label Label15
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "Remote Desktop"
- BeginProperty Font
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = -1 'True
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ForeColor = &H00C00000&
- Height = 195
- Left = 1770
- TabIndex = 75
- Top = 1365
- Width = 1200
- End
- End
- Begin ciaXPFrame.XPFrame frameRemote
- Height = 1800
- Index = 1
- Left = 45
- TabIndex = 79
- Top = 825
- Visible = 0 'False
- Width = 5805
- _ExtentX = 10239
- _ExtentY = 3175
- Caption = "Remote Assistance"
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ForeColor = 12582912
- BackStyle = 1
- Radius = 15
- LicValid = -1 'True
- Begin ciaXPButton.XPButton cmdGen
- Height = 345
- Index = 8
- Left = 3975
- TabIndex = 80
- Top = 1305
- Width = 1515
- _ExtentX = 2672
- _ExtentY = 609
- Caption = "Advanced..."
- OriginalPicSizeW= 0
- OriginalPicSizeH= 0
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- MouseIcon = "frmSystem.frx":1128E
- LicValid = -1 'True
- End
- Begin ciaXPSelectionControls.XPCheckBox XPCheckBox3
- Height = 315
- Left = 210
- TabIndex = 81
- Top = 315
- Width = 5130
- _ExtentX = 9049
- _ExtentY = 556
- Caption = "Allow Remote Assistance invitations to be sent from this computer"
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Style = 1
- Value = 1
- LicValid = -1 'True
- End
- Begin VB.Label Label16
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "Learn more about"
- Height = 195
- Left = 450
- TabIndex = 83
- Top = 840
- Width = 1245
- End
- Begin VB.Label Label17
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "Remote Assistance"
- BeginProperty Font
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = -1 'True
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ForeColor = &H00C00000&
- Height = 195
- Left = 1770
- TabIndex = 82
- Top = 840
- Width = 1365
- End
- End
- End
- Begin VB.Label Label8
- BackStyle = 0 'Transparent
- Caption = "Click Apply or OK to view the Progress Controls"
- ForeColor = &H00000000&
- Height = 465
- Index = 39
- Left = 60
- TabIndex = 88
- Top = 6285
- Width = 2220
- WordWrap = -1 'True
- End
- Begin VB.Label Label12
- BackStyle = 0 'Transparent
- Caption = "Select the ways that this computer can be used from another location."
- Height = 600
- Left = 7125
- TabIndex = 19
- Top = 6165
- Width = 4395
- WordWrap = -1 'True
- End
- Attribute VB_Name = "frmSystem"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Private Sub cmdApply_Click()
- 'Form2.Show 1
- End Sub
- Private Sub cmdCancel_Click()
- Unload Me
- End Sub
- Private Sub cmdOK_Click()
- 'Form2.Show 1
- Unload Me
- End Sub
- Private Sub oTab_TabMouseDown(PreviousTab As Integer, CurrentTab As Integer)
- 'hide the previous frames
- Select Case PreviousTab
- Case 0
- frameGeneral.Visible = False
- Case 1
- frameComputerName.Visible = False
- Case 2
- frameHardware(0).Visible = False
- frameHardware(1).Visible = False
- frameHardware(2).Visible = False
- Case 3
- frameComputerName.Visible = False
- Case 4
- frameInternetFiles.Visible = False
- Case 5
- frameUpdates(0).Visible = False
- frameUpdates(1).Visible = False
- Case 6
- End Select
- 'show the current frames
- Select Case CurrentTab
- Case 0
- frameGeneral.Visible = True
- Case 1
- frameComputerName.Visible = True
- Case 2
- frameHardware(0).Visible = True
- frameHardware(1).Visible = True
- frameHardware(2).Visible = True
- Case 3
- frameComputerName.Visible = True
- frameComputerName.Refresh
- Case 4
- frameInternetFiles.Visible = True
- Case 5
- frameUpdates(0).Visible = True
- frameUpdates(1).Visible = True
- Case 6
- End Select
- End Sub
- Private Sub Form_Load()
- 'size the tab control
- oTab.Width = 5970
- oTab.Height = 6120
- 'size the form
- Me.Height = 7200
- Me.Width = 6200
- 'move the frames
- frameUpdates(0).Left = 90
- frameUpdates(1).Left = 90
- frameComputerName.Left = 90
- frameInternetFiles.Left = 90
- frameRemote(0).Left = 90
- frameRemote(1).Left = 90
- frameUpdates(0).Top = 750
- frameUpdates(1).Top = frameUpdates(0).Top + frameUpdates(0).Height + 200
- frameComputerName.Top = 750
- frameInternetFiles.Top = 750
- frameRemote(0).Top = 750
- frameRemote(1).Top = frameRemote(0).Top + frameRemote(0).Height + 200
- End Sub
-